home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_90-08_1990_-_de_Side_B.d64
/
Plotter .txt
< prev
next >
Wrap
Text File
|
2023-02-26
|
990b
|
77 lines
d/rem
rem Funktionsplotter fuer C64 & Supra64
rem
:start
clr
zu$="0123456789- "
gosub screen
cursor 0,2
print "Intervall von :";
input 3,zu$,ei$
a=val(ei$)
print
print "bis :";
input 3,zu$,ei$
b=val(ei$)
cursor 0,4
print "Y min-Koordinate :";
input 3,zu$,ei$
y1=val(ei$)
print
print "Y max-Koordinate :";
input 3,zu$,ei$
y2=val(ei$)
rem
rem Test auf Sinn !
rem
if a>=b:start
if y1>=y2:start
rem
rem Berechnung !
rem
ix=b-a
dx=320/ix
iy=y2-y1
dy=200/iy
ha=abs(a)
hy=abs(y1)
rem
gosub screen
rem
line 1,ha*dx,0,ha*dx,199
line 1,0,200-(hy*dy),319,200-(hy*dy)
x=0
do until x=ix
line 1,x*dx,200-abs(hy*dy-3),x*dx,200-abs(hy*dy+3)
x=x+1
loop
x=0
do until x=iy
line 1,abs(ha*dx-3),x*dy,abs(ha*dx+3),x*dy
x=x+1
loop
rem
rem plotten
rem
x=a
do until xk>=319
rem ---------------
y=abs(x)
rem ---------------
xk=x*dx+ha*dx
yk=200-(y*dy+hy*dy)
ifyk<8oryk>199:+weiter
draw 1,xk,yk
:weiter
x=x+1/(dx+2)
loop
end.
:screen
scnclr
cursor 0,0
modus 1
print "Funktionsplotter V1"
modus 0
return
z